﻿Namespace Classes
    Public Class SitePage
        Private intTabID As Integer
        Private intParentID As Integer
        Private strTitle As String
        Private strTabName As String
        Private intTabOrder As Integer
        Private strURL As String
        Private intLevel As Integer
        Private strTabPath As String

        Public Property TabID As Integer
            Get
                Try
                    Return intTabID
                Catch ex As Exception
                    Return 0
                End Try
            End Get
            Set(value As Integer)
                Try
                    intTabID = value
                Catch ex As Exception
                End Try
            End Set
        End Property

        Public Property ParentID As Integer
            Get
                Try
                    Return intParentID
                Catch ex As Exception
                    Return 0
                End Try
            End Get
            Set(value As Integer)
                Try
                    intParentID = value
                Catch ex As Exception
                End Try
            End Set
        End Property

        Public Property Title As String
            Get
                Try
                    Return strTitle
                Catch ex As Exception
                    Return Nothing
                End Try
            End Get
            Set(value As String)
                Try
                    strTitle = value
                Catch ex As Exception
                End Try
            End Set
        End Property

        Public Property TabName As String
            Get
                Try
                    Return strTabName
                Catch ex As Exception
                    Return Nothing
                End Try
            End Get
            Set(value As String)
                Try
                    strTabName = value
                Catch ex As Exception
                End Try
            End Set
        End Property

        Public Property TabOrder As Integer
            Get
                Try
                    Return intTabOrder
                Catch ex As Exception
                    Return 0
                End Try
            End Get
            Set(value As Integer)
                Try
                    intTabOrder = value
                Catch ex As Exception
                End Try
            End Set
        End Property

        Public Property URL As String
            Get
                Try
                    Return strURL
                Catch ex As Exception
                    Return Nothing
                End Try
            End Get
            Set(value As String)
                Try
                    strURL = value
                Catch ex As Exception
                End Try
            End Set
        End Property

        Public Property Level As Integer
            Get
                Try
                    Return intLevel
                Catch ex As Exception
                    Return 0
                End Try
            End Get
            Set(value As Integer)
                Try
                    intLevel = value
                Catch ex As Exception
                End Try
            End Set
        End Property

        Public Property TabPath As String
            Get
                Try
                    Return strTabPath
                Catch ex As Exception
                    Return Nothing
                End Try
            End Get
            Set(value As String)
                Try
                    strTabPath = value
                Catch ex As Exception
                End Try
            End Set
        End Property
    End Class
End Namespace
